home *** CD-ROM | disk | FTP | other *** search
- ; SoundFX ---------------------------------------------------------------------------------------------------
- (MESSAGE
- "\n\nWillkommen zur Installation von SoundFX 3.0!\n\n"
- )
-
- (SET @default-dest
- (ASKDIR
- (PROMPT "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
- (HELP "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
- (DEFAULT @default-dest)
- )
- )
- (MESSAGE "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.0 Mb-Speicher frei ist !")
-
- ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
- (SET @default-dest (TACKON @default-dest "SFX"))
- (SET sfx-dest @default-dest)
- (IF (= (EXISTS sfx-dest) 0)
- (MAKEDIR sfx-dest (INFOS))
- )
-
- ; Fonts kopieren --------------------------------------------------------------------------------------------
- (COMPLETE 8)
- (COPYFILES
- (SOURCE "Fonts/")
- (DEST "FONTS:")
- (ALL)
- )
-
- ; Libs kopieren ---------------------------------------------------------------------------------------------
- (COMPLETE 12)
- (COPYLIB
- (SOURCE "Libs/amigaguide.library")
- (DEST "LIBS:")
- )
-
- ; Keyfile kopieren ------------------------------------------------------------------------------------------
- (COMPLETE 17)
- (SET sfxsub-dest "DEVS:keyfiles")
- (IF (= (EXISTS sfxsub-dest) 0)
- (MAKEDIR sfx-dest (INFOS))
- )
- (COPYFILES
- (SOURCE "Keyfiles/SFX.key")
- (DEST "DEVS:keyfiles/")
- )
-
- ; Synths ----------------------------------------------------------------------------------------------------
- (COMPLETE 20)
- (SET sfxsub-dest (TACKON sfx-dest "Synths"))
- (IF (= (EXISTS sfx-dest) 0)
- (MAKEDIR sfxsub-dest (INFOS))
- )
- (COPYFILES
- (SOURCE "Synths/")
- (DEST sfxsub-dest)
- (ALL)
- (INFOS)
- )
-
- ; Eqshapes --------------------------------------------------------------------------------------------------
- (COMPLETE 48)
- (SET sfxsub-dest (TACKON sfx-dest "Eqshps"))
- (IF (= (EXISTS sfx-dest) 0)
- (MAKEDIR sfxsub-dest (INFOS))
- )
- (COPYFILES
- (SOURCE "Eqshps/")
- (DEST sfxsub-dest)
- (ALL)
- (INFOS)
- )
-
- ; Envelopes -------------------------------------------------------------------------------------------------
- (COMPLETE 53)
- (SET sfxsub-dest (TACKON sfx-dest "Envelopes"))
- (IF (= (EXISTS sfx-dest) 0)
- (MAKEDIR sfxsub-dest (INFOS))
- )
- (COPYFILES
- (SOURCE "Envelopes/")
- (DEST sfxsub-dest)
- (ALL)
- (INFOS)
- )
-
- ; ARexx-Scripte ---------------------------------------------------------------------------------------------
- (COMPLETE 55)
- (SET sfxsub-dest (TACKON sfx-dest "Rexx"))
- (COPYFILES
- (SOURCE "Rexx/")
- (DEST sfxsub-dest)
- (ALL)
- (INFOS)
- )
-
- ; Guide -----------------------------------------------------------------------------------------------------
- (COMPLETE 70)
- (COPYFILES
- (SOURCE "sfx.guide")
- (DEST sfx-dest)
- (INFOS)
- )
- (SET sfxsub-dest (TACKON sfx-dest "Guides"))
- (IF (= (EXISTS sfx-dest) 0)
- (MAKEDIR sfxsub-dest (INFOS))
- )
- (COPYFILES
- (SOURCE "Guides/")
- (DEST sfxsub-dest)
- (ALL)
- (INFOS)
- )
-
- ; Versionsauswahl -------------------------------------------------------------------------------------------
- (COMPLETE 80)
- (SET pver
- (ASKCHOICE
- (PROMPT "Bitte wählen Sie die zu installierende Programmversion aus !")
- (HELP "Die Version ist von Ihrer verwendeten Computerhardware abhängig !")
- (CHOICES
- "68000"
- "68030-881"
- ; "68040-(881)"
- )
- (DEFAULT 0)
- )
- )
- (IF (= pver 0)
- (COPYFILES
- (SOURCE "SFX/sfx.68000")
- (DEST sfx-dest)
- (NEWNAME "SoundFX")
- )
- )
- (IF (= pver 1)
- (COPYFILES
- (SOURCE "SFX/sfx.68030-881")
- (DEST sfx-dest)
- (NEWNAME "SoundFX")
- )
- )
- ;(IF (= pver 2)
- ; (COPYFILES
- ; (SOURCE "SFX/sfx.68040-881")
- ; (DEST sfx-dest)
- ; (NEWNAME "SoundFX")
- ; )
- ;)
- (COPYFILES
- (SOURCE "SFX/SoundFX.info")
- (DEST sfx-dest)
- )
-
- ; Fertig ----------------------------------------------------------------------------------------------------
- (EXIT
- "\n\nSFX konnte erfolgreich installiert werden.\n"
- "Bitte schlagen Sie im Handbuch nach, um zu erfahren wie das Programm bedient und gestartet wird.\n"
- )
-